home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / os2 / pine394.zip / bin / pgpview.cmd < prev    next >
OS/2 REXX Batch file  |  1996-06-25  |  503b  |  29 lines
  1. /* rexx: view a pgp signed message with PineOS2
  2. */
  3.  
  4. '@echo off'
  5.  
  6. parse arg infile rest
  7. outfile=infile||'.out'
  8. 'pgp' rest '-o' outfile infile
  9.  
  10. /* Only pause if there is a problem to report */
  11.  
  12. if rc <> 0 then do
  13.     SAY
  14.     SAY d2c(7)||'Problem verifying signature. Press ENTER...'
  15.     'pause >NUL'
  16.     'del' outfile
  17.     return 0
  18.     end
  19.  
  20. p=lastpos('\',infile)
  21. if p > 0 then
  22.     basename=substr(infile,p+1)
  23. else
  24.     basename=infile
  25. 'del' infile
  26. 'ren' outfile basename
  27. exit 0
  28.  
  29.